home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAPCP01.ZIP / DEPOS106 / DEPOSIT.PPX < prev   
Text File  |  1995-09-03  |  25KB  |  819 lines
  1. ;------------------------------------------------------------------------------
  2. ; PPLX 1.3O                              (C)1995 - Lone Runner / AEGiS CoRP'95 
  3. ;------------------------------------------------------------------------------
  4. ; PPE 3.O1 (crypted) - Analysis OFF
  5. ;------------------------------------------------------------------------------
  6.  
  7.     String   STRING001
  8.     String   STRING002
  9.     String   STRING003
  10.     Integer  INTEGER002
  11.     Integer  INTEGER003
  12.     String   STRING004
  13.     String   STRING005
  14.     Integer  INTEGER004
  15.     String   STRING006
  16.     String   STRING007
  17.     Integer  INTEGER005
  18.     Integer  INTEGER006
  19.     String   STRING008
  20.     String   STRING009
  21.     String   STRING010
  22.     String   STRING011
  23.     String   STRING012
  24.     String   STRING013
  25.     String   STRING014
  26.     Date     DATE001
  27.     Date     DATE002
  28.     Date     DATE003
  29.     Integer  INTEGER007
  30.     Integer  INTEGER008
  31.     String   STRING015
  32.     String   STRING016
  33.     Integer  INTEGER009
  34.     Integer  INTEGER010
  35.     String   STRING017
  36.     Integer  INTEGER011
  37.     String   STRING018
  38.     String   STRING019
  39.     Integer  INTEGER012
  40.     Integer  INTEGER013
  41.     String   TABLESTRING020(6)
  42.     Integer  INTEGER014
  43.     Integer  INTEGER015
  44.     Integer  INTEGER016
  45.     Integer  INTEGER017
  46.     Integer  INTEGER018
  47.     Integer  INTEGER019
  48.     Integer  INTEGER020
  49.     Integer  INTEGER021
  50.     String   STRING021
  51.     Integer  INTEGER022
  52.     Integer  INTEGER023
  53.     Integer  INTEGER024
  54.     String   STRING022
  55.     String   STRING023
  56.     String   STRING024
  57.     Integer  INTEGER025
  58.     String   STRING025
  59.     Integer  INTEGER026
  60.     String   STRING026
  61.     String   STRING027
  62.     Integer  INTEGER027
  63.     String   STRING028
  64.     String   STRING029
  65.     String   STRING030
  66.     Integer  INTEGER028
  67.     Integer  INTEGER029
  68.     String   STRING031
  69.     String   STRING032
  70.  
  71. ;------------------------------------------------------------------------------
  72.  
  73.     Log "Opened Depository PPE", 1
  74.     CdChkOn
  75.     Cls
  76.     STRING008 = GetEnv("PCB_PWRD")
  77.     If (!(STRING008 == "")) Goto LABEL000
  78.     STRING031 = "Environment Variable was not set. Please tell Sysop."
  79.     Log "PCB_PWRD environment variable not set.. ", 0
  80.     Goto LABEL001
  81. :LABEL000
  82.     If (!(Exist(STRING008) == 0)) Goto LABEL002
  83.     STRING031 = "File associated with environmet not found. Please tell Sysop."
  84.     Log "PCB_PWRD Environment variable " + STRING008 + " was not found!", 0
  85.     Goto LABEL001
  86. :LABEL002
  87.     FOpen 1, STRING008, 0, 0
  88.     FGet 1, STRING022
  89.     FClose 1
  90.     INTEGER022 = Len(STRING022)
  91.     STRING032 = 0
  92. :LABEL005
  93.     If (!(STRING032 < INTEGER022)) Goto LABEL003
  94.     STRING032 = STRING032 + 1
  95.     If (!(Mid(STRING022, STRING032, 1) == ",")) Goto LABEL004
  96.     INTEGER017 = INTEGER017 + 1
  97. :LABEL004
  98.     Goto LABEL005
  99. :LABEL003
  100.     If (!(INTEGER017 < 7)) Goto LABEL006
  101.     Log "PWRD file is not the correct format.", 0
  102.     Log "Please check that the FORMAT is 15.x extended format.", 0
  103.     STRING031 = "Please tell SYSOP that the PWRD file has incorrect format."
  104.     Goto LABEL001
  105. :LABEL006
  106.     GetUser
  107.     Cls
  108.     INTEGER004 = U_PAGELEN
  109.     If (!(INTEGER004 <> 25)) Goto LABEL007
  110.     U_PAGELEN = 25
  111.     PutUser
  112. :LABEL007
  113.     STRING019 = PpePath()
  114.     STRING019 = STRING019 + "intro.pcb"
  115.     INTEGER014 = 1
  116.     TABLESTRING020(INTEGER014) = STRING019
  117.     Gosub LABEL008
  118.     DispFile TABLESTRING020(INTEGER014), 0
  119.     AnsiPos 14, 22
  120.     PrintLn "@X0E(c)1993,95 PRACTICAL COMPUTER SERVICES (609) 587-2672@X07"
  121.     AnsiPos 5, 23
  122.     GetUser
  123.     STRING026 = PpePath()
  124.     STRING026 = STRING026 + "DEPOSIT.CFG"
  125.     FOpen 1, STRING026, 0, 0
  126.     INTEGER014 = 1
  127.     TABLESTRING020(INTEGER014) = STRING026
  128.     Gosub LABEL008
  129.     FGet 1, STRING006
  130.     FGet 1, STRING007
  131.     FGet 1, INTEGER005
  132.     FGet 1, INTEGER006
  133.     FClose 1
  134.     STRING008 = GetEnv("PCB_PWRD")
  135.     If ((STRING008 == "")) Stop
  136.     If ((Exist(STRING008) == 0)) Stop
  137.     STRING001 = U_SEC
  138.     FOpen 1, STRING008, 0, 0
  139.     INTEGER013 = 0
  140. :LABEL019
  141.     If (!(INTEGER013 == 0)) Goto LABEL009
  142.     FGet 1, STRING018
  143.     STRING025 = Mid(STRING018, 1, 5)
  144.     If (!(InStr(STRING025, STRING001) > 0)) Goto LABEL010
  145.     INTEGER017 = 0
  146.     INTEGER018 = 0
  147. :LABEL013
  148.     If (!(INTEGER017 <= 2)) Goto LABEL011
  149.     STRING021 = Mid(STRING018, INTEGER018, 1)
  150.     If (!(STRING021 == ",")) Goto LABEL012
  151.     INTEGER017 = INTEGER017 + 1
  152. :LABEL012
  153.     INTEGER018 = INTEGER018 + 1
  154.     Goto LABEL013
  155. :LABEL011
  156.     INTEGER019 = INTEGER018
  157.     INTEGER017 = 0
  158. :LABEL016
  159.     If (!(INTEGER017 < 1)) Goto LABEL014
  160.     STRING021 = Mid(STRING018, INTEGER018, 1)
  161.     If (!(STRING021 == ",")) Goto LABEL015
  162.     INTEGER017 = INTEGER017 + 1
  163. :LABEL015
  164.     INTEGER018 = INTEGER018 + 1
  165.     Goto LABEL016
  166. :LABEL014
  167.     INTEGER020 = INTEGER018 - 1
  168.     INTEGER021 = INTEGER020 - INTEGER019
  169.     STRING002 = Mid(STRING018, INTEGER019, INTEGER021)
  170.     If (!(STRING002 == "32767")) Goto LABEL017
  171.     STRING002 = "UNLIMITED"
  172.     Goto LABEL018
  173. :LABEL017
  174.     STRING002 = STRING002 * 1024
  175. :LABEL018
  176.     INTEGER013 = 1
  177. :LABEL010
  178.     Goto LABEL019
  179. :LABEL009
  180.     FClose 1
  181.     If (!(STRING002 == "UNLIMITED")) Goto LABEL020
  182.     STRING003 = 0
  183.     Goto LABEL021
  184. :LABEL020
  185.     INTEGER022 = STRING002
  186.     INTEGER022 = INTEGER022 - U_BdlDay()
  187.     STRING003 = INTEGER022
  188. :LABEL021
  189.     INTEGER019 = 0
  190.     INTEGER020 = 0
  191.     INTEGER013 = 0
  192.     FOpen 1, STRING008, 0, 0
  193. :LABEL032
  194.     If (!(INTEGER013 == 0)) Goto LABEL022
  195.     FGet 1, STRING018
  196.     STRING025 = Mid(STRING018, 1, 5)
  197.     If (!(InStr(STRING025, STRING001) > 0)) Goto LABEL023
  198.     INTEGER017 = 0
  199.     INTEGER018 = 0
  200. :LABEL026
  201.     If (!(INTEGER017 <= 5)) Goto LABEL024
  202.     STRING021 = Mid(STRING018, INTEGER018, 1)
  203.     If (!(STRING021 == ",")) Goto LABEL025
  204.     INTEGER017 = INTEGER017 + 1
  205. :LABEL025
  206.     INTEGER018 = INTEGER018 + 1
  207.     Goto LABEL026
  208. :LABEL024
  209.     INTEGER019 = INTEGER018
  210.     INTEGER017 = 0
  211. :LABEL029
  212.     If (!(INTEGER017 < 1)) Goto LABEL027
  213.     STRING021 = Mid(STRING018, INTEGER018, 1)
  214.     If (!(STRING021 == ",")) Goto LABEL028
  215.     INTEGER017 = INTEGER017 + 1
  216. :LABEL028
  217.     INTEGER018 = INTEGER018 + 1
  218.     Goto LABEL029
  219. :LABEL027
  220.     INTEGER020 = INTEGER018 - 1
  221.     INTEGER021 = INTEGER020 - INTEGER019
  222.     STRING022 = Mid(STRING018, INTEGER019, INTEGER021)
  223.     INTEGER022 = Len(STRING022)
  224.     STRING023 = Mid(STRING022, INTEGER022, 1)
  225.     STRING024 = Mid(STRING022, 1, INTEGER022 - 1)
  226.     If (!(STRING023 == 0)) Goto LABEL030
  227.     STRING005 = "NA"
  228.     Goto LABEL031
  229. :LABEL030
  230.     STRING005 = STRING023 + ":" + STRING024
  231. :LABEL031
  232.     INTEGER013 = 1
  233. :LABEL023
  234.     Goto LABEL032
  235. :LABEL022
  236.     FClose 1
  237.     INTEGER002 = U_Ful()
  238.     INTEGER003 = U_Fdl()
  239.     If (!(INTEGER002 > INTEGER003)) Goto LABEL033
  240.     INTEGER025 = INTEGER002 / INTEGER003
  241.     STRING022 = INTEGER025
  242.     STRING004 = STRING022 + ":1"
  243. :LABEL033
  244.     If (!(INTEGER003 > INTEGER002)) Goto LABEL034
  245.     INTEGER025 = INTEGER003 / INTEGER002
  246.     STRING022 = INTEGER025
  247.     STRING004 = "1:" + STRING022
  248. :LABEL034
  249.     If (!(INTEGER003 == INTEGER002)) Goto LABEL035
  250.     STRING004 = "1:1"
  251. :LABEL035
  252.     INTEGER013 = 0
  253.     STRING026 = PpePath()
  254.     STRING026 = STRING026 + "DEPOSIT.ndx"
  255.     FOpen 1, STRING026, 0, 0
  256. :LABEL044
  257.     If (!(INTEGER013 == 0)) Goto LABEL036
  258.     If ((INTEGER013 == 0)) FGet 1, STRING018
  259.     If (!(STRING018 <> "")) Goto LABEL037
  260.     INTEGER022 = InStr(STRING018, "/")
  261.     INTEGER024 = Len(STRING018)
  262.     STRING022 = Mid(STRING018, INTEGER022 + 1, INTEGER024 - INTEGER022)
  263.     INTEGER011 = STRING022
  264.     STRING022 = Mid(STRING018, 1, INTEGER022 - 1)
  265.     STRING014 = U_Name()
  266.     If (!(InStr(STRING022, STRING014) > 0)) Goto LABEL038
  267.     INTEGER013 = 1
  268.     STRING026 = PpePath()
  269.     STRING026 = STRING026 + "DEPOSIT.dat"
  270.     FOpen 2, STRING026, 0, 0
  271.     INTEGER026 = 0
  272.     INTEGER017 = 0
  273. :LABEL041
  274.     If (!(INTEGER026 == 0)) Goto LABEL039
  275.     FGet 2, STRING018
  276.     If ((STRING018 == "")) INTEGER026 = 1
  277.     INTEGER017 = INTEGER017 + 1
  278.     If (!(INTEGER017 == INTEGER011)) Goto LABEL040
  279.     INTEGER026 = 1
  280. :LABEL040
  281.     Goto LABEL041
  282. :LABEL039
  283.     STRING014 = STRING018
  284.     FGet 2, STRING018
  285.     DATE001 = STRING018
  286.     FGet 2, STRING018
  287.     DATE002 = STRING018
  288.     FGet 2, STRING018
  289.     DATE003 = STRING018
  290.     FGet 2, STRING018
  291.     INTEGER007 = STRING018
  292.     FGet 2, STRING018
  293.     INTEGER008 = STRING018
  294.     FGet 2, STRING018
  295.     STRING015 = STRING018
  296.     FGet 2, STRING018
  297.     STRING016 = STRING018
  298.     FGet 2, STRING018
  299.     INTEGER009 = STRING018
  300.     FGet 2, STRING018
  301.     INTEGER010 = STRING018
  302.     FGet 2, STRING018
  303.     STRING012 = STRING018
  304.     FGet 2, STRING018
  305.     STRING013 = STRING018
  306.     INTEGER013 = 1
  307.     FClose 2
  308. :LABEL038
  309.     Goto LABEL042
  310. :LABEL037
  311.     FClose 1
  312.     Gosub LABEL043
  313.     INTEGER013 = 1
  314. :LABEL042
  315.     Goto LABEL044
  316. :LABEL036
  317.     If (!(DATE001 <> Date())) Goto LABEL045
  318.     STRING012 = "0"
  319.     STRING013 = "0"
  320. :LABEL045
  321.     INTEGER028 = STRING012
  322.     INTEGER029 = STRING013
  323.     Gosub LABEL046
  324. :LABEL050
  325.     AnsiPos 24, 7
  326.     STRING022 = MinLeft()
  327.     Print "@X70" + STRING022 + "@X07"
  328.     AnsiPos 28, 23
  329.     InputStr "@X0EEnter your choice@X07 ", STRING027, 4, 1, "QDWEqdwe", 32
  330.     If ((Upper(STRING027) == "Q")) Goto LABEL047
  331.     If (!(Upper(STRING027) == "D")) Goto LABEL048
  332.     Gosub LABEL049
  333.     Goto LABEL050
  334. :LABEL048
  335.     If (!(Upper(STRING027) == "W")) Goto LABEL051
  336.     Gosub LABEL052
  337.     Goto LABEL050
  338. :LABEL051
  339.     If (!(Upper(STRING027) == "E")) Goto LABEL053
  340.     Gosub LABEL054
  341.     Goto LABEL050
  342. :LABEL053
  343.     Goto LABEL050
  344. :LABEL047
  345.     FClose 1
  346.     FClose 2
  347.     FClose 3
  348.     Gosub LABEL055
  349.     INTEGER022 = MinLeft()
  350.     If ((INTEGER022 < 1)) Bye
  351.     Cls
  352.     U_PAGELEN = INTEGER004
  353.     PutUser
  354.     End
  355. :LABEL001
  356.     Cls
  357.     If (!(STRING031 > "")) Goto LABEL056
  358.     PrintLn STRING031
  359. :LABEL056
  360.     Stop
  361. :LABEL049
  362.     AnsiPos 15, 23
  363.     InputStr "Enter @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING027, 3, 1, "BTQbtq", 32
  364.     If ((Upper(STRING027) == "Q")) Goto LABEL050
  365.     If (!(Upper(STRING027) == "B")) Goto LABEL057
  366.     AnsiPos 15, 23
  367.     InputStr "@X0EInput Byte amount you wish to Deposit@X07 ", STRING027, 4, 10, "9876543210", 32
  368.     AnsiPos 15, 23
  369.     InputStr "@X0EAre you sure you wish to deposit " + STRING027 + " Bytes@X07 ", STRING029, 4, 1, "YyNn", 32
  370.     If (!(Upper(STRING029) == "Y")) Goto LABEL058
  371.     INTEGER022 = STRING002
  372.     If ((STRING002 == "UNLIMITED")) INTEGER022 = 0
  373.     INTEGER022 = INTEGER022 - U_BdlDay()
  374.     If (!(INTEGER022 < 1)) Goto LABEL059
  375.     AnsiPos 5, 23
  376.     InputStr "Value entered is larger than Bytes remaining. Hit enter to continue.", STRING027, 9, 1, "", 32
  377.     Goto LABEL049
  378. :LABEL059
  379.     INTEGER023 = STRING027
  380.     If (!(INTEGER023 > INTEGER022)) Goto LABEL060
  381.     AnsiPos 5, 23
  382.     InputStr "Value entered is larger than Bytes remaining. Hit enter to continue.", STRING027, 9, 1, "", 32
  383.     Goto LABEL049
  384. :LABEL060
  385.     DATE002 = Date()
  386.     INTEGER007 = STRING027
  387.     INTEGER028 = INTEGER028 - INTEGER007
  388.     STRING015 = "BYTE"
  389.     INTEGER010 = INTEGER010 + INTEGER007
  390.     STRING019 = PpePath()
  391.     STRING019 = STRING019 + "USysUpd.Exe"
  392.     WrUSys
  393.     Shell 1, STRING028, STRING019, INTEGER007
  394.     RrUSys
  395.     Gosub LABEL046
  396. :LABEL058
  397.     Goto LABEL050
  398. :LABEL057
  399.     If (!(Upper(STRING027) == "T")) Goto LABEL061
  400.     AnsiPos 5, 23
  401.     INTEGER022 = MinLeft()
  402.     STRING022 = INTEGER022
  403.     InputStr "@X0EYou have " + STRING022 + " available. Input Time amount you wish to Deposit@X07 ", STRING027, 4, 10, "9876543210", 32
  404.     AnsiPos 15, 23
  405.     InputStr "@X0EAre you sure you wish to deposit " + STRING027 + " Time@X07 ", STRING029, 4, 1, "YyNn", 32
  406.     If (!(Upper(STRING029) == "Y")) Goto LABEL062
  407.     INTEGER027 = STRING027
  408.     INTEGER022 = MinLeft()
  409.     If (!(INTEGER027 > INTEGER022)) Goto LABEL063
  410.     AnsiPos 5, 23
  411.     InputStr "Value entered is more than the time remaining. Hit enter to continue.", STRING027, 9, 1, "", 32
  412.     Goto LABEL050
  413. :LABEL063
  414.     DATE002 = Date()
  415.     INTEGER007 = STRING027
  416.     STRING015 = "TIME"
  417.     INTEGER009 = INTEGER009 + INTEGER007
  418.     INTEGER027 = INTEGER027 * -1
  419.     AdjTime INTEGER027
  420.     INTEGER029 = INTEGER029 - INTEGER007
  421.     Cls
  422.     Gosub LABEL046
  423. :LABEL062
  424.     Goto LABEL050
  425. :LABEL061
  426.     Goto LABEL049
  427. :LABEL052
  428.     AnsiPos 15, 23
  429.     InputStr "Enter @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING027, 3, 1, "BTQbtq", 32
  430.     If ((Upper(STRING027) == "Q")) Goto LABEL050
  431.     If (!(Upper(STRING027) == "B")) Goto LABEL064
  432.     AnsiPos 15, 23
  433.     InputStr "@X0EInput Byte amount you wish to Withdraw@X07 ", STRING027, 4, 10, "9876543210", 32
  434.     AnsiPos 15, 23
  435.     InputStr "@X0EAre you sure you wish to withdraw " + STRING027 + " Bytes@X07 ", STRING029, 4, 1, "YyNn", 32
  436.     If (!(Upper(STRING029) == "Y")) Goto LABEL065
  437.     INTEGER027 = STRING027
  438.     If (!(INTEGER027 > INTEGER010)) Goto LABEL066
  439.     AnsiPos 5, 23
  440.     InputStr "Value entered is more than Bytes saved. Hit enter to continue.", STRING027, 9, 1, "", 32
  441.     Goto LABEL052
  442. :LABEL066
  443.     If (!(INTEGER027 > STRING007)) Goto LABEL067
  444.     AnsiPos 1, 23
  445.     InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  446.     Goto LABEL052
  447. :LABEL067
  448.     INTEGER022 = INTEGER028 + INTEGER027
  449.     If (!(INTEGER022 > STRING007)) Goto LABEL068
  450.     AnsiPos 1, 23
  451.     InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  452.     Goto LABEL052
  453. :LABEL068
  454.     DATE003 = Date()
  455.     INTEGER008 = INTEGER027
  456.     STRING016 = "BYTE"
  457.     INTEGER010 = INTEGER010 - INTEGER008
  458.     INTEGER022 = INTEGER008 * -1
  459.     INTEGER028 = INTEGER028 + INTEGER008
  460.     STRING019 = PpePath()
  461.     STRING019 = STRING019 + "USysUpd.Exe"
  462.     WrUSys
  463.     Shell 1, STRING028, STRING019, INTEGER022
  464.     RrUSys
  465.     Gosub LABEL046
  466. :LABEL065
  467.     Goto LABEL052
  468. :LABEL064
  469.     If (!(Upper(STRING027) == "T")) Goto LABEL069
  470.     AnsiPos 5, 23
  471.     INTEGER022 = MinLeft()
  472.     STRING022 = INTEGER022
  473.     InputStr "@X0EInput Time amount you wish to Withdraw@X07 ", STRING027, 4, 10, "9876543210", 32
  474.     AnsiPos 15, 23
  475.     InputStr "@X0EAre you sure you wish to withdraw " + STRING027 + " Time@X07 ", STRING029, 4, 1, "YyNn", 32
  476.     If (!(Upper(STRING029) == "Y")) Goto LABEL070
  477.     INTEGER027 = STRING027
  478.     If (!(INTEGER009 < INTEGER027)) Goto LABEL071
  479.     AnsiPos 5, 23
  480.     InputStr "Value entered is more than time saved. Hit enter to continue.", STRING027, 9, 1, "", 32
  481.     Goto LABEL052
  482. :LABEL071
  483.     If (!(INTEGER027 > STRING006)) Goto LABEL072
  484.     AnsiPos 1, 23
  485.     InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  486.     Goto LABEL052
  487. :LABEL072
  488.     INTEGER022 = INTEGER029 + INTEGER027
  489.     If (!(INTEGER022 > STRING006)) Goto LABEL073
  490.     AnsiPos 1, 23
  491.     InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  492.     Goto LABEL052
  493. :LABEL073
  494.     DATE003 = Date()
  495.     INTEGER008 = STRING027
  496.     STRING016 = "TIME"
  497.     INTEGER009 = INTEGER009 - INTEGER008
  498.     AdjTime INTEGER008
  499.     INTEGER029 = INTEGER029 + INTEGER008
  500.     Cls
  501.     Gosub LABEL046
  502. :LABEL070
  503.     Goto LABEL052
  504. :LABEL069
  505.     Goto LABEL052
  506. :LABEL054
  507.     AnsiPos 15, 23
  508.     InputStr "Enter @X0E(B)@X03ytes, @X0E(T)@X03ime, or @X0E(Q)@X03uit back to menu ", STRING027, 3, 1, "BTQbtq", 32
  509.     If ((Upper(STRING027) == "Q")) Goto LABEL050
  510.     If (!(Upper(STRING027) == "B")) Goto LABEL074
  511.     AnsiPos 10, 23
  512.     STRING022 = INTEGER006
  513.     InputStr "@X0EInput Byte amount to Exchange, in increments of@X07 " + STRING022, STRING027, 4, 10, "9876543210", 32
  514.     AnsiPos 15, 23
  515.     InputStr "@X0EAre you sure you wish to exchange " + STRING027 + " Bytes@X07 ", STRING029, 4, 1, "YyNn", 32
  516.     If (!(Upper(STRING029) == "Y")) Goto LABEL075
  517.     INTEGER027 = STRING027
  518.     If (!(INTEGER027 > INTEGER010)) Goto LABEL076
  519.     AnsiPos 5, 23
  520.     InputStr "Value entered is more than Bytes saved. Hit enter to continue.", STRING027, 9, 1, "", 32
  521.     Goto LABEL054
  522. :LABEL076
  523.     If (!(INTEGER027 > STRING007)) Goto LABEL077
  524.     AnsiPos 1, 23
  525.     InputStr "Value entered is more than Maximum Bytes allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  526.     Goto LABEL052
  527. :LABEL077
  528.     If (!(INTEGER027 < INTEGER006)) Goto LABEL078
  529.     AnsiPos 1, 23
  530.     InputStr "Value entered is less than then minimum value of " + STRING022 + ". Hit enter to continue.", STRING027, 9, 1, "", 32
  531.     Goto LABEL052
  532. :LABEL078
  533.     DATE003 = Date()
  534.     INTEGER008 = INTEGER027
  535.     STRING016 = "BYTE"
  536.     INTEGER010 = INTEGER010 - INTEGER008
  537.     INTEGER022 = INTEGER027 / INTEGER006
  538.     INTEGER022 = INTEGER022 * INTEGER005
  539.     DATE002 = Date()
  540.     INTEGER007 = INTEGER022
  541.     STRING015 = "TIME"
  542.     INTEGER009 = INTEGER009 + INTEGER007
  543.     Gosub LABEL046
  544. :LABEL075
  545.     Goto LABEL054
  546. :LABEL074
  547.     If (!(Upper(STRING027) == "T")) Goto LABEL079
  548.     AnsiPos 15, 23
  549.     STRING022 = INTEGER005
  550.     InputStr "@X0EInput Time amount you wish to Exchange, in increments of@X07 " + STRING022, STRING027, 4, 10, "9876543210", 32
  551.     AnsiPos 15, 23
  552.     InputStr "@X0EAre you sure you wish to exchange " + STRING027 + " Minutes@X07", STRING029, 4, 1, "YyNn", 32
  553.     If (!(Upper(STRING029) == "Y")) Goto LABEL080
  554.     INTEGER027 = STRING027
  555.     If (!(INTEGER027 > INTEGER009)) Goto LABEL081
  556.     AnsiPos 5, 23
  557.     InputStr "Value entered is more than Time saved. Hit enter to continue.", STRING027, 9, 1, "", 32
  558.     Goto LABEL054
  559. :LABEL081
  560.     If (!(INTEGER027 > STRING006)) Goto LABEL082
  561.     AnsiPos 1, 23
  562.     InputStr "Value entered is more than Maximum Time allowed . Hit enter to continue.", STRING027, 9, 1, "", 32
  563.     Goto LABEL052
  564. :LABEL082
  565.     If (!(INTEGER027 < INTEGER005)) Goto LABEL083
  566.     AnsiPos 1, 23
  567.     InputStr "Value entered is less than then minimum value of " + STRING022 + ". Hit enter to continue.", STRING027, 9, 1, "", 32
  568.     Goto LABEL052
  569. :LABEL083
  570.     DATE003 = Date()
  571.     INTEGER008 = INTEGER027
  572.     STRING016 = "TIME"
  573.     INTEGER009 = INTEGER009 - INTEGER008
  574.     INTEGER022 = INTEGER027 / INTEGER005
  575.     INTEGER022 = INTEGER022 * INTEGER006
  576.     DATE002 = Date()
  577.     INTEGER007 = INTEGER022
  578.     STRING015 = "BYTE"
  579.     INTEGER010 = INTEGER010 + INTEGER007
  580.     Gosub LABEL046
  581. :LABEL080
  582.     Goto LABEL054
  583. :LABEL079
  584.     Goto LABEL054
  585. :LABEL043
  586.     STRING017 = U_Name()
  587.     STRING026 = PpePath()
  588.     STRING026 = STRING026 + "DEPOSIT.dat"
  589.     FOpen 2, STRING026, 0, 0
  590.     INTEGER026 = 0
  591.     INTEGER017 = 1
  592. :LABEL087
  593.     If (!(INTEGER026 == 0)) Goto LABEL084
  594.     FGet 2, STRING018
  595.     If (!(STRING018 == "")) Goto LABEL085
  596.     INTEGER026 = 1
  597.     Goto LABEL086
  598. :LABEL085
  599.     INTEGER017 = INTEGER017 + 1
  600. :LABEL086
  601.     Goto LABEL087
  602. :LABEL084
  603.     FClose 2
  604.     STRING026 = PpePath()
  605.     STRING026 = STRING026 + "DEPOSIT.ndx"
  606.     FAppend 1, STRING026, 2, 0
  607.     INTEGER011 = INTEGER017
  608.     STRING022 = INTEGER011
  609.     FPutLn 1, STRING017, "/", STRING022
  610.     FClose 1
  611.     STRING026 = PpePath()
  612.     STRING026 = STRING026 + "DEPOSIT.dat"
  613.     FAppend 2, STRING026, 2, 0
  614.     STRING014 = U_Name()
  615.     DATE001 = "00-00-00"
  616.     DATE002 = "00-00-00"
  617.     DATE003 = "00-00-00"
  618.     INTEGER007 = 0
  619.     INTEGER008 = 0
  620.     STRING015 = "NA"
  621.     STRING016 = "NA"
  622.     INTEGER009 = 0
  623.     INTEGER010 = 0
  624.     INTEGER028 = 0
  625.     INTEGER029 = 0
  626.     FPutLn 2, STRING014
  627.     FPutLn 2, Date()
  628.     FPutLn 2, DATE002
  629.     FPutLn 2, DATE003
  630.     FPutLn 2, INTEGER007
  631.     FPutLn 2, INTEGER008
  632.     FPutLn 2, STRING015
  633.     FPutLn 2, STRING016
  634.     FPutLn 2, INTEGER009
  635.     FPutLn 2, INTEGER010
  636.     FPutLn 2, INTEGER028
  637.     FPutLn 2, INTEGER029
  638.     FClose 2
  639.     Return
  640. :LABEL046
  641.     INTEGER012 = 0
  642.     Cls
  643.     STRING019 = PpePath()
  644.     STRING019 = STRING019 + "UserMnu.pcb"
  645.     INTEGER014 = 1
  646.     TABLESTRING020(INTEGER014) = STRING019
  647.     Gosub LABEL008
  648.     DispFile TABLESTRING020(INTEGER014), 0
  649.     INTEGER016 = GetX()
  650.     INTEGER015 = GetY()
  651.     AnsiPos 17, 6
  652.     Print "@X70" + U_Name() + "@X07"
  653.     AnsiPos 66, 6
  654.     Print "@X70" + STRING001 + "@X07"
  655.     AnsiPos 24, 7
  656.     STRING022 = MinLeft()
  657.     Print "@X70" + STRING022 + "@X07"
  658.     AnsiPos 70, 7
  659.     Print "@X70" + STRING002 + "@X07"
  660.     AnsiPos 26, 8
  661.     Print "@X70" + STRING005 + "@X07"
  662.     AnsiPos 70, 8
  663.     STRING022 = U_BdlDay()
  664.     Print "@X70" + STRING022 + "@X07"
  665.     AnsiPos 26, 9
  666.     Print "@X70" + STRING004 + "@X07"
  667.     AnsiPos 25, 14
  668.     STRING010 = DATE002
  669.     Print "@X70" + STRING010 + "@X07"
  670.     AnsiPos 56, 14
  671.     STRING022 = INTEGER007
  672.     Print "@X70" + STRING022 + "@X07"
  673.     AnsiPos 72, 14
  674.     Print "@X70" + STRING015 + "@X07"
  675.     AnsiPos 25, 15
  676.     STRING011 = DATE003
  677.     Print "@X70" + STRING011 + "@X07"
  678.     AnsiPos 56, 15
  679.     STRING022 = INTEGER008
  680.     Print "@X70" + STRING022 + "@X07"
  681.     AnsiPos 72, 15
  682.     Print "@X70" + STRING016 + "@X07"
  683.     AnsiPos 25, 16
  684.     STRING022 = INTEGER009
  685.     Print "@X70" + STRING022 + "@X07"
  686.     AnsiPos 59, 16
  687.     STRING022 = INTEGER010
  688.     Print "@X70" + STRING022 + "@X07"
  689.     AnsiPos 25, 17
  690.     STRING009 = DATE001
  691.     Print "@X70" + STRING009 + "@X07"
  692.     AnsiPos 28, 18
  693.     STRING022 = STRING006
  694.     Print "@X70" + STRING022 + "@X07"
  695.     AnsiPos 61, 18
  696.     STRING022 = STRING007
  697.     Print "@X70" + STRING022 + "@X07"
  698.     AnsiPos INTEGER016, INTEGER015
  699.     Return
  700. :LABEL008
  701.     If (Exist(TABLESTRING020(INTEGER014))) Return
  702.     Wait
  703.     PrintLn Space(17) + "*********************************************"
  704.     PrintLn Space(17) + "*                                           *"
  705.     PrintLn Space(17) + "*               FILE ERROR                  *"
  706.     PrintLn Space(17) + "*                                           *"
  707.     PrintLn Space(17) + "* Please tell Sysop that the following file *"
  708.     PrintLn Space(17) + "* did not exist or is not in correct path : *"
  709.     PrintLn Space(17) + "*               " + TABLESTRING020(INTEGER014) + Space(20) + "*"
  710.     PrintLn Space(17) + "*********************************************"
  711.     PrintLn Space(1)
  712.     Wait
  713.     Goto LABEL047
  714. :LABEL055
  715.     INTEGER013 = 1
  716.     STRING026 = PpePath()
  717.     STRING026 = STRING026 + "DEPOSIT.tmp"
  718.     FCreate 2, STRING026, 2, 0
  719.     FPutLn 2, INTEGER011
  720.     FPutLn 2, STRING014
  721.     FPutLn 2, DATE001
  722.     FPutLn 2, DATE002
  723.     FPutLn 2, DATE003
  724.     FPutLn 2, INTEGER007
  725.     FPutLn 2, INTEGER008
  726.     FPutLn 2, STRING015
  727.     FPutLn 2, STRING016
  728.     FPutLn 2, INTEGER009
  729.     FPutLn 2, INTEGER010
  730.     FPutLn 2, INTEGER028
  731.     FPutLn 2, INTEGER029
  732.     FClose 2
  733.     STRING019 = PpePath()
  734.     STRING030 = PpePath()
  735.     STRING019 = STRING019 + "DataUPD.Exe"
  736.     Shell 1, STRING028, STRING019, STRING030
  737.     Return
  738.  
  739. ;------------------------------------------------------------------------------
  740. ;
  741. ; Statements used :
  742. ;
  743. ;    1       End
  744. ;    7       Cls
  745. ;    2       Wait
  746. ;    114     Goto 
  747. ;    225     Let 
  748. ;    20      Print 
  749. ;    11      PrintLn 
  750. ;    74      If 
  751. ;    2       DispFile 
  752. ;    1       FCreate 
  753. ;    7       FOpen 
  754. ;    2       FAppend 
  755. ;    13      FClose 
  756. ;    21      FGet 
  757. ;    26      FPutLn 
  758. ;    2       GetUser
  759. ;    2       PutUser
  760. ;    2       AdjTime 
  761. ;    5       Log 
  762. ;    31      InputStr 
  763. ;    15      Gosub 
  764. ;    4       Return
  765. ;    1       CdChkOn
  766. ;    1       Delay 
  767. ;    3       Shell 
  768. ;    3       Stop
  769. ;    1       Bye
  770. ;    53      AnsiPos 
  771. ;    2       WrUSys
  772. ;    2       RrUSys
  773. ;
  774. ;
  775. ; Functions used :
  776. ;
  777. ;    2       -
  778. ;    5       *
  779. ;    4       /
  780. ;    108     +
  781. ;    15      -
  782. ;    42      ==
  783. ;    3       <>
  784. ;    9       <
  785. ;    2       <=
  786. ;    17      >
  787. ;    63      !
  788. ;    3       Len(
  789. ;    19      Upper()
  790. ;    13      Mid()
  791. ;    10      Space()
  792. ;    4       InStr()
  793. ;    10      Date()
  794. ;    4       U_Name()
  795. ;    1       U_Ful()
  796. ;    1       U_Fdl()
  797. ;    3       U_BdlDay()
  798. ;    13      PpePath()
  799. ;    6       MinLeft()
  800. ;    2       GetEnv()
  801. ;    3       Exist()
  802. ;    1       GetX()
  803. ;    1       GetY()
  804. ;
  805. ;-----------------------------------------------------------------------------;
  806. ; (C)1995 AEGiS CoRP       - Main Code by Lone Runner -      Parts by The doC ;
  807. ;-----------------------------------------------------------------------------;
  808. ;        ___________      _______________________        _____________        ;
  809. ;[=======\          \====/          /           /_____  /            /=======];
  810. ; ::::::::\  ______  \::/  \_____  /  _______  /______)/  \_______  /:::::::: ;
  811. ; ::kL!:::_\/    _/   \/   ___)__\/   \      \/        \_________ \/::::::::: ;
  812. ; ::::::::\     __     \_  \      \_   \_     \_        \_      /  \_:::::::: ;
  813. ;[=========\_____/______/__________/___________/_________/__________/========];
  814. ;                                                                             ;
  815. ;                      C          O          R          P                     ;
  816. ;-----------------------------------------------------------------------------;
  817. ;                        Dedicated to pure anarchists all around the world... ;
  818. ;-----------------------------------------------------------------------------;
  819.